home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / nt_dsp1.lzh / NT_DSP1.MSA / LFLTS / LATIIR.ASM < prev    next >
Assembly Source File  |  1989-01-24  |  1KB  |  38 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Lattice IIR Filter Macro.
  7. ; 
  8. ; Last Update 31 Jul 86   Version 1.0
  9. ;
  10. latiir  macro   order
  11. latiir  ident   1,0
  12. ;
  13. ;       Lattice IIR filter macro
  14. ;
  15. ;       Input value in register A, output value in register A
  16. ;
  17. ;       Macro call:
  18. ;               latiir  order           ;call macro
  19. ;
  20. ;       where 'order' is the number of reflections coefficients
  21. ;       in the filter.
  22. ;
  23. ;       Alters registers: x0 x1 y0 a b, r0 r4, pc sr
  24. ;
  25. ;       Uses 2 locations on stack
  26. ;
  27. ;
  28.   move            x:(r0)-,x0  y:(r4)+,y0    ;get first k, first state
  29.   macr  -x0,y0,a  x:(r0)-,x0  y:(r4)-,y0    ;do first section
  30.   do    #order-1,_endlat                    ;do remaining sections
  31.   macr  -x0,y0,a              b,y:(r4)+     ;a-k*s, save previous state
  32.   move  a,x1                  y:(r4)+,b     ;set a for mul, get st again
  33.   macr  x1,x0,b   x:(r0)-,x0  y:(r4)-,y0    ;fnd nxt s, nxt s, nxt k
  34. _endlat
  35.   move                        b,y:(r4)+     ;round; save second last state
  36.   move            x:(r0)+,x0  a,y:(r4)+     ;update r0, save last state
  37.   endm 
  38.